#Figure A2

data<-read.dta13("Remaining Seized Replication Data.dta")
plot<-data[,c("agg_implem_wo", "year_count",
              "country_accorddate")]
plot[plot$country_accorddate=="Coratia (11/12/1995)",]$country_accorddate<-
  "Croatia (11/12/1995)"
plot[plot$country_accorddate=="Sierra Leone ( 7/7/1999)",]$country_accorddate<-
  "Sierra Leone (7/7/1999)"

p<-ggplot(data=plot, aes(x=year_count,y=agg_implem_wo))+
  geom_line()+
  facet_wrap(.~country_accorddate, labeller = labeller(country_accorddate = label_wrap_gen(19)))+
  scale_color_discrete(name = "UN Personnel Type")+
  ylab("Aggregate Implementation Rate")+
  xlab("Years Since CPA")+
  theme(text=element_text(size=14))+
  theme_bw()

p
pdf("FigureA2.pdf")
p
dev.off()

rm(data, plot, p)
